home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 2001 April / PCDAPR2001.ISO / _SETUP.1 / BD.dcr / TIG_1_Load tig.ls < prev    next >
Encoding:
Text File  |  2000-07-05  |  915 b   |  44 lines
  1. on InitTIG
  2.   oNew = new(script("Song Class"))
  3.   oNew.setName("The Thrill is Gone")
  4.   oNew.SetID("TIG")
  5.   lCh = []
  6.   lCh[1] = EMPTY
  7.   lCh[2] = "-171"
  8.   lCh[3] = "-1A4"
  9.   lCh[4] = "-2A4"
  10.   lCh[5] = "b393"
  11.   lCh[6] = "d393"
  12.   lCh[7] = "-371"
  13.   lCh[8] = "-393"
  14.   lCh[9] = "-492"
  15.   lCh[10] = "-493"
  16.   lCh[11] = "v171"
  17.   lCh[12] = "d393v393"
  18.   lCh[13] = "-271"
  19.   lCh[14] = "b1A4"
  20.   lCh[15] = "d1A4"
  21.   lCh[16] = "-2C3"
  22.   lCh[17] = "-1A1"
  23.   lCh[18] = "b1A1"
  24.   lCh[19] = "d1A1"
  25.   lCh[20] = "v2C3"
  26.   lCh[21] = "-1C3"
  27.   lCh[22] = "b1C3"
  28.   lCh[23] = "r1C3"
  29.   lCh[24] = "-1A1h1C3"
  30.   lCh[25] = "-161s171"
  31.   lCh[26] = "r1A1"
  32.   lCh[27] = "-194s1A4"
  33.   lCh[28] = "-191s1A1"
  34.   oNew.setChordMap(lCh)
  35.   lT = []
  36.   addrend1pageTIG01(lT)
  37.   oNew.addRendition(#audio, "C:\dev\BlueDemo\TIG\tig.wav", lT)
  38.   lT = []
  39.   addrend2pageTIG01(lT)
  40.   oNew.addRendition(#midi, "C:\dev\BlueDemo\TIG\tigmid.mov", lT)
  41.   addpageTIG01(oNew)
  42.   return oNew
  43. end
  44.